home *** CD-ROM | disk | FTP | other *** search
(provide (quote ispell)) (defconst ispell-version "2.0.01") (defconst ispell-out-name " *ispell*" "\ Name of the buffer that is associated with the 'ispell' process") (defconst ispell-temp-name " *ispell-temp*" "\ Name of the temporary buffer that 'ispell-region' uses to hold the filtered region") (defvar ispell-program-name "ispell" "\ *Program invoked by ispell-word and ispell-region commands.") (defvar ispell-dictionary nil "\ *Personal dictionary file containing a list of words, one to a line. If nil, defaults to ispell's normal default (usually ~/.ispell_words).") (defvar ispell-words-have-boundaries t "\ *If nil, a misspelled word matches embedded words too. This is useful in nroff/troff, where a misspelled word may be hidded (e.g., Iword B), and a pain otherwise.") (defvar ispell-highlight nil "\ *If non-nil, misspelled words are highlighted. See the function highlight-region.") (defvar ispell-syntax-table nil "\ *Syntax table used by ispell to find word boundaries. You may change syntax entries to, say, allow ' and - to be part of words, or not, as you prefer.") (if (null ispell-syntax-table) (progn (setq ispell-syntax-table (make-syntax-table)) (modify-syntax-entry 48 ". " ispell-syntax-table) (modify-syntax-entry 49 ". " ispell-syntax-table) (modify-syntax-entry 50 ". " ispell-syntax-table) (modify-syntax-entry 51 ". " ispell-syntax-table) (modify-syntax-entry 52 ". " ispell-syntax-table) (modify-syntax-entry 53 ". " ispell-syntax-table) (modify-syntax-entry 54 ". " ispell-syntax-table) (modify-syntax-entry 55 ". " ispell-syntax-table) (modify-syntax-entry 56 ". " ispell-syntax-table) (modify-syntax-entry 57 ". " ispell-syntax-table) (modify-syntax-entry 36 ". " ispell-syntax-table) (modify-syntax-entry 37 ". " ispell-syntax-table))) (defun ispell-word (&optional quietly) "\ Check spelling of word at or before dot. If word not found in dictionary, display possible corrections in a window and let user select." (interactive) (byte-code "וêכ ⑧ו⑨וəווולÄèמ╱!êנס!?à# עסeפ#êעצeפ#êקרוז#å5 שת!êןך!①םך!②ף \"ë③))êץ ê åU §∧∞♪!\"êè qêα♪♪βP\"êdbêΓhπ\"àu Σ♪!êéc êebêσף`µ ê`\"!ë④)ê ז=âÜ åù §τ∞♪!\"éה ;âã å¡ §Φ∞♪!∞ !#éה Θ ♪\"ë⑤ê àה bêΩ \"êδ !ê .╱ç" [current-syntax start end word poss replace ispell-syntax-table nil t quietly ispell-out-name ispell-process syntax-table ((byte-code "IJ✓!ç" [current-syntax set-syntax-table] 2)) set-syntax-table looking-at "\\w" re-search-backward stay "\\W" re-search-forward "\\w+" error "No word to check." match-beginning 0 match-end buffer-substring ispell-init-process message "Checking spelling of %s..." upcase send-string " " /= 10 accept-process-output ispell-parse-output end-of-line "Checking spelling of %s... correct" "Checking spelling of %s... correct (derived from %s)" ispell-choose delete-region insert-string] 28)) (defun ispell-choose (choices word) "\ Display possible corrections from list CHOICES. Return chosen word if one is chosen, or nil to keep original WORD." (byte-code "מÄנï)ç" [count line words choices window-min-height char num result mode-line-format word nil t ispell-process help-char ((byte-code "ijIJ!ç" [bury-buffer " *Choices*"] 2)) ((byte-code "מנ♪נטטט◆╱ə⑨⑧èסע!qêפ êצק !רQë⑥✓ê àW שתi @G#ן Xâ9 טé@ ךcê Të①êםף✓ץ\\§ @∧%ê A②✓Të⓪êé$ ê✓מUà` ∞c)êα !êβע!êΓπ !êיΣσק !\"êrë⑤ê ץZë⑥╱ê µUåî τUâÿ Φ !êטé2⇧ ΘUâ† Ω δ ךQ\"êΩ ∮ ךQ\"êΦ !êטé2⇧ ϕUâק Ω ∮ ךQ\"êΦ !êטé2⇧ ∈Uâ∮ Φ !ê∩≡±ק !\"ט\"é2⇧╱מYà≈ ╱✓Wâ╱⇧Φ !ê╱♪8é2⇧ ≥Uâ⑤⇧è≤ )êיé2⇧ Uå⇧ ⌠Uâ.⇧Σ⌡!ê÷≈!êיé2⇧° êיë⑥◆=à>⇧טêéo ê◆.◆ç" [count line words choices window-min-height char num result mode-line-format word nil t ispell-process help-char 0 2 get-buffer-create " *Choices*" erase-buffer "-- %b (Type number to select replacement for " upcase ") --" + 7 window-width " " insert "(" 48 ") " " " "(none)" overlay-window switch-to-buffer select-window next-window message "%s: a(dd), c(orrect), r(eplace), space or s(kip) [default], ? (help)" 32 115 ispell-ignore-later-occurrences 97 send-string "*" "@" 99 114 read-string format "Replacement for %s: " 18 recursive-edit 63 "a(dd to dict), c(orrect for this session), r(eplace with your word), or number of replacement" sit-for 3 ding] 30))] 1)) (defun ispell-ignore-later-occurrences (word) (byte-code "א✓!à⑥ è✓qêèבג דQה P\"))ç" [ispell-temp-name word get-buffer replace-regexp "^" "$" "+"] 5)) (defun overlay-window (height) "\ Create a (usually small) window with HEIGHT lines and avoid recentering." (byte-code "èèג ê`)èד !ê`)ה⑨⑧✓ Wà ✓ë①êו !ë③êז♪ \"+)ç" [oldot top height newin beginning-of-line move-to-window-line nil split-window-vertically set-window-start] 6)) (defvar ispell-process nil "\ Holds the process object for 'ispell'") (defun ispell-parse-output (output) "\ Parse the OUTPUT string of 'ispell' and return either t for an exact match, a string containing the root word for a match via suffix removal, a list of possible correct spellings, or nil for a complete miss." (byte-code "ה✓ו\"â♪ IJéX ה✓ז\"â⑥ אéX ה✓חטOי\"â' ✓כאOéX אה✓ל\"?àU מנ✓\"מס✓ # àH ✓ O♪Bë③ê✓ TאOë⓪*êé) ê♪)ç" [output t nil choice-list start end string= "*" "#" 0 1 "+" 2 "" string-match "[A-z]" " \\|$"] 10)) (defun ispell-init-process nil "\ Check status of 'ispell' process and start if necessary." (byte-code "✓à ג✓!ד=â⑥ è qêה )éN ✓â וז!é# וח!êט êי !à0 כ !êלמנ ♪âA ס♪עEéC עC%ë⓪êפ✓!êצק!ç" [ispell-process ispell-out-name ispell-program-name ispell-dictionary process-status run erase-buffer message "Restarting dead ispell process..." "Starting new ispell process..." ispell-check-version-compatibility get-buffer kill-buffer apply start-process "ispell" "-p" "-A" process-kill-without-query sit-for 3] 15)) (defun ispell-check-version-compatibility nil (byte-code "ה !⑧è✓qêו êז בגבח%êebêט בג#â\" גéC טיבכ#â? למ נ`סעבכ#ê`פZ\"%éC לצ \"))ç" [buffer ispell-out-name ispell-program-name nil t ispell-version get-buffer-create erase-buffer call-process "-v" search-forward "Version " move error "Incompatible version of %s (expected %s, but \"%s -v\" returned %s)" buffer-substring re-search-forward "[^0-9.]" 1 "Old version of %s (doesn't handle -v option)"] 16)) (defvar ispell-filter-hook "tr" "\ *Filter to pass a region through before sending it to ispell. Must produce output one word per line. Typically this is set to tr, deroff, detex, etc.") (make-variable-buffer-local (quote ispell-filter-hook)) (defvar ispell-filter-hook-args (quote ("-cs" "A-Za-z" " ")) "*Argument LIST to pass to ispell-filter-hook") (make-variable-buffer-local (quote ispell-filter-hook-args)) (defvar ispell-filter-hook-produces-single-column t "\ *This is nil if your ispell-filter-hook does not output one word per line.") (defun ispell-region (start end) "\ Check a region for spelling errors interactively. The variable which should be buffer or mode specific ispell-filter-hook is called to filter out text processing commands." (interactive "r") (byte-code "סêpןך!ם♪!ף ץססססס ✓◆╱ə⑨⑧§ ê∧♪!ë⑥ ê∞Äèîαβ!ê✓qêΓ \"êπΣ!êσ!ê qêµ ê✓qêτΦΘΩ ס ס&╱①\"\"ê bê qê②?à| Φedδצצס∮ϕ∈& êdbê∩h≡\"àë ∈cêebêg≡UàÜ ±ץ!êéì ê≥ed סץ%ê≤④⌠ ∈Q\"êα⌡÷④!\"êπΣ!êm?àב ÷④!≈=à⇩ qêdbê° ê`ë⑥ ê bê∙· ץ#?° ê√ `\"⑥⑤`ë⑤ê qêⁿ⑤!êα⌡÷④!\"êâ♪⇧m?à✓⇧²④!é⑧⇩³`¯ ê`\"ë⑥╱êü@ ץ!ê qêüA ³`¯ ê`\"!ë⑥◆êü@ ץ!ê`ë⑤ê✓qê∙üB סצ⑤S$êüC üD ╱ΣץO\"âd⇧üE ╱ץסOסצ#é⑤⇩∙⑥âz⇧üF üG ╱!üF QéÇ⇧üG ╱!סצ#â ⇩` üH ╱סצ#êè` üI üJ üK üL \"!êπΣ!ê⑦àÃ⇧üM \"êüN ◆╱\"ë⑥✓ê⑦àע⇧üO \"))ê✓àⁿ⇧èüP ⑥â≥⇧üF üG ╱!üF Qé°⇧üG ╱!✓\"))é ⇩αüQ ╱\"êrêα⌡÷④!\"êπΣ!ê qêéÕ ))). ç" [this-buf spell-file spell-buf ispell-temp-name current-syntax tracker word poss replace endbound ispell-out ispell-out-name start end ispell-syntax-table ispell-filter-hook nil ispell-filter-hook-args ispell-filter-hook-produces-single-column t ispell-process count ispell-words-have-boundaries ispell-highlight make-temp-name "/tmp/ispell" get-buffer-create syntax-table 1 ispell-init-process get-buffer ((byte-code "ב✓!ג=â דה!é① דו!êז !êח !à ט !ç" [ispell-process current-syntax spell-file process-status run message "Done." "Warning - ispell process died." set-syntax-table file-exists-p delete-file] 7)) message "Prefrobnicating..." narrow-to-region sit-for 0 set-syntax-table erase-buffer apply call-process-region append list "tr" "-cs" "A-Za-z" " " /= 10 delete-char write-region send-string "&Include_File&" "Looking for a misspelled word... (status: %s)" process-status run beginning-of-line re-search-forward "^[#&]" count-lines forward-line accept-process-output buffer-substring end-of-line forward-char ispell-parse-output "\\W*\\(\\w+\\)" string= "+" search-forward "\\b" regexp-quote search-backward recenter / window-height 2 highlight-region ispell-choose unhighlight-region query-replace-regexp "Can't find %s in original text -- Any key to continue"] 60)) (defun ispell-buffer nil "\ Check the current buffer for spelling errors interactively. The variable which should be buffer or mode specific ispell-filter-hook is called to filter out text processing commands." (interactive) (byte-code "ijêIJed\"ç" [nil ispell-region] 3)) (defun highlight-region (p1 p2) "\ Highlight the current region. You may have to rewrite this for your particular terminal." (interactive "r") (byte-code "דêה \"ג⑧ו \"êזח!ê✓cêזח!*ç" [s p1 p2 inverse-video t nil buffer-substring delete-region sit-for 0] 5)) (defun unhighlight-region (p1 p2) "\ Unhighlight the current region. See highlight-region." (interactive "r") (byte-code "גêד \"ג⑧ה \"êוז!ê✓cêוז!*ç" [s p1 p2 inverse-video nil buffer-substring delete-region sit-for 0] 5)) (defvar ispell-words-file "/usr/dict/words" "\ *File used for ispell-complete-word command. On 4.3bsd systems, try using \"/usr/dict/web2\" for a larger selection. Apollo users may want to try \"/sys/dict\".") (defun ispell-complete-word nil "\ Look up word before point in dictionary (see the variable ispell-words-file) and try to complete it. If in the middle of a word, replace the entire word." (interactive) (byte-code "גêזèחט!ê`)`\"⑧יכ!⑨èל♪!qêמ êנ✓ס\"å, עפגדגצ✓╱&◆êק רVâ; שת !é< ג)əן ✓\"◆◆àY àP ךט!êם✓!êף◆!,ç" [current-word in-word possibilities ispell-temp-name nil t ispell-words-file replacement buffer-substring backward-word 1 looking-at "\\w" get-buffer-create erase-buffer string= "" call-process "look" "-df" buffer-size 0 ispell-parse-output buffer-string ispell-choose kill-word search-backward replace-match] 15)) 
